Invenzioni & Inventori/Invenzioni and Inventori (Eclectica Publishing) (1996).ISO/invenzio/vivid/getat2.dir/00065_Script_65

Text File | 1996-11-09 | 2KB | 60 lines

on refresh_paper
  global PaginaCorrente,BOOK,LARGHEZZA

  set Current_Page=getat(BOOK,PaginaCorrente)

  set Loop=0
    --Ora la cosa da fare Φ ricaricare la pagina settata con i nuovi valori.
  set Count=1
  repeat with Loop in [34, 39 ] --text objects
    if the casttype of cast the castnum of sprite Loop = #digitalvideo then
      set the video of cast the castnum of sprite Loop to FALSE
    end if
    set the visible of sprite Loop to false
  end repeat
  updatestage

  repeat with Loop in [34 ,39 ] --text objects


    --------load del testo contenuto...
    set Current_Object=getat(Current_Page,Count)
    -------- ma prima seleziona il cast corretto secondo il tipo definito...
    if integerP(the CAST of Current_Object) then  set the castnum of sprite Loop to the CAST of Current_Object
    -------- se Φ testo ci copia il testo dentro...
    if the type of sprite Loop= 7 then
      set the text of cast (the castnum of sprite Loop) to the TEXT of Current_Object
    end if

    -------load del tipo (SIZE) del testo (Non possiede strech)
    if the type of sprite Loop= 7 then
      set Current_Type=getat(LARGHEZZA,PaginaCorrente)
      setat Current_Type,Count, the TYPE of Current_Object
    else -- setta lo stretch
     -- set the width of sprite Loop to the X_SIZE of Current_Object
     -- set the height of sprite Loop to the Y_SIZE of Current_Object
    end if
    --------load della posizione x ed y del testo...
    -- set the loch of sprite Loop to the X of Current_Object
    -- set the locv of sprite Loop to the Y of Current_Object
    --------load se Φ visibile o invisibile (presente o meno)
    set the visible of sprite Loop to the ACTIVE of Current_Object

    set Count=Count+1
  end repeat

  repeat with Loop in [34 ,39] --text objects
    if the casttype of cast the castnum of sprite Loop = #digitalvideo then
      set the video of cast the castnum of sprite Loop to true
    end if

  end repeat

  --update dello stage...

  set the text of cast 36 to  "Page" && string(PaginaCorrente)
  Updatestage

end